Group Members - Yu Jing - Lam Kum Yee - Chin Mun Kit - Chang Qian Yi
library('plotly')
path <- '../../data/DomesticBeer.csv'
df <- read.csv(path)
head(df)
summary(df)
Brand Alcohol Calories
Length:128 Min. : 0.400 Min. : 70.0
Class :character 1st Qu.: 4.475 1st Qu.:130.8
Mode :character Median : 4.900 Median :150.0
Mean : 5.198 Mean :154.0
3rd Qu.: 5.600 3rd Qu.:166.0
Max. :10.500 Max. :330.0
Carbs
Min. : 2.60
1st Qu.: 8.60
Median :12.10
Mean :12.15
3rd Qu.:14.65
Max. :32.10
sum(is.na(df))
[1] 0
fig1 <- plot_ly(x = df$Alcohol, type='histogram', name = 'Alcohol')
fig2 <- plot_ly(x = df$Calories, type='histogram', name = 'Calories')
fig3 <- plot_ly(x = df$Carbs, type='histogram', name = 'Carbs')
fig <- subplot(fig1, fig2, fig3, nrows = 3)
fig
fig <- plot_ly(df, y=~Alcohol, type='box', name='Alcohol', jitter=0.3, pointpos = -1.8)
fig <- fig %>% add_trace(y=~Calories, name='Calories')
fig <- fig %>% add_trace(y=~Carbs, name='Carbs')
fig
fig1 <- plot_ly(df, y=~Alcohol, type='box', name='Alcohol %', jitter=0.3, pointpos = -1.8)
fig1
fig2 <- plot_ly(df, y=~Calories, type='box', name='Calories per 12 ounce', jitter=0.3, pointpos = -1.8)
fig2
fig3 <- plot_ly(df, y=~Carbs, type='box', name='Carbs(g) per 12 ounce', jitter=0.3, pointpos = -1.8)
fig3
fig <- plot_ly(df,
x = ~Alcohol,
y = ~Calories,
type='scatter',
mode='markers',
color = ~Carbs,
colors = 'Reds',
marker = list(size = ~Carbs, opacity = 0.5),
hoverinfo = 'text',
text = ~paste(
'Brand:', Brand,
'<br>Alcohols:', Alcohol,
'<br>Calories:', Calories,
'<br>Carbs:', Carbs
)
)
fig